home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / HARDWARE.SWG / 0040_Sending Data to the Parallel Ports.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-03  |  271b  |  13 lines
  1. {
  2. > I would like to send one byte of data to the parallel port so I can test
  3. > an interface.  What is the easiest way to do this?
  4. }
  5.  
  6. Program Send_A_To_LPT1;
  7. Var
  8.   PrinterPort:Array[1..4] Of Byte Absolute $40:$8;
  9. Begin
  10.   Port[PrinterPort[1]]:=Ord('A');
  11. End.
  12.  
  13.